home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00083_Script_83 < prev    next >
Text File  |  1996-11-09  |  1KB  |  42 lines

  1. on mouseUp
  2.   set SPRITE_=45
  3.   global revel_x,revel_y
  4.   global PaginaCorrente,BOOK,LARGHEZZA,VUOTO,PrimaIcona,lista_delle_icone
  5.   set Current_Page=getat(BOOK,PaginaCorrente)
  6.   set numero_icona=3
  7.   
  8.   set Icona=getat(lista_delle_icone,numero_icona)
  9.   if the cast_number of Icona = VUOTO then exit
  10.   set Count=1 
  11.   set Loop=0
  12.   --loop nel caso sia un'icona di testo...
  13.   if the text of icona<>EMPTY then
  14.     set Loop to 34
  15.     set Current_Object=getat(Current_Page,Count)  
  16.     --*****************************************************
  17.     set cast_ = 1
  18.     set the text of cast cast_ to the text of icona
  19.     set the visible of sprite Loop to TRUE
  20.     set the visible of sprite 39 to false
  21.     --*****************************************************
  22.     set Count=Count+1  
  23.   else
  24.     set Count=6
  25.     set Loop to 39
  26.     set Current_Object=getat(Current_Page,Count)  
  27.     --*****************************************************
  28.     set the castnum of sprite Loop to the cast_number of Icona
  29.   
  30.     set the visible of sprite Loop to TRUE
  31.     set the visible of sprite 34 to false
  32.     --MODIFICA (caso per gli altri oggetti...)
  33.     --*****************************************************
  34.     set Count=Count+1  
  35.   end if
  36.   
  37.   UpdateStage
  38.   
  39.   
  40. end
  41.  
  42.